(math-check-known-scalarp): Make sure expression is a symbol before

checking that it is bound.

diff --git a/lisp/calc/calc-arith.el b/lisp/calc/calc-arith.el
index a5f25e2464e510d572d4972333463e14e1d647d2..ec09ae293182deb3ef67e4ade399570d9591a432 100644 (file)
--- a/lisp/calc/calc-arith.el
+++ b/lisp/calc/calc-arith.el
@@ -334,6 +334,7 @@
             ((memq 'scalar (nth 1 decl))
              t)
             ((and (eq (car a) 'var)
+                  (symbolp (nth 2 a))
                   (boundp (nth 2 a))
                   (setq val (symbol-value (nth 2 a))))
              (math-check-known-scalarp val))